home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / prelude / Collection.p < prev    next >
Text File  |  2000-04-24  |  4KB  |  124 lines
  1. pTempVar <- <primitive 110 23 >
  2. <primitive 112 pTempVar 1  " size " \
  3.   #( #[ 16r50 16r71 16r20 16rE1 16r02 16r06 16r21 16r51 16rC0 16rF1 16r71 \
  4.         16rF3 16rB3 16rF2 16r21 16rF3 16rF5] \
  5.     #(  )) >
  6.  
  7. <primitive 112 pTempVar 2  " shallowCopy " \
  8.   #( #[ 16r05 16r30 16rA0 16r71 16r20 16rE1 16r02 16r05 16r21 16r22 16r0B \
  9.         16r16 16rF3 16rB3 16rF2 16r20 16r21 16rBF 16rF3 16rF5] \
  10.     #(  )) >
  11.  
  12. <primitive 112 pTempVar 3  " select: " \
  13.   #( #[ 16r20 16r20 16rA4 16rA0 16rE2 16r02 16r0B 16r21 16r23 16rB4 16rF7 \
  14.         16r03 16r22 16r23 16rBD 16rF2 16r22 16rF3 16rD7 16rF3 16rF5 \
  15.        ] \
  16.     #(  )) >
  17.  
  18. <primitive 112 pTempVar 4  " remove:ifAbsent: " \
  19.   #( #[ 16r20 16r21 16r0B 16r1E 16rF7 16r06 16r20 16r21 16r0B 16r27 16rF8 \
  20.         16r03 16rF2 16r22 16rA5 16rF3 16rF5] \
  21.     #(  )) >
  22.  
  23. <primitive 112 pTempVar 5  " remove: " \
  24.   #( #[ 16r20 16r21 16rE0 16r04 16r20 16r30 16rBC 16rF4 16rD8 16rF2 16r21 \
  25.         16rF3 16rF5] \
  26.     #( 'attempt to remove object not found in collection'  )) >
  27.  
  28. <primitive 112 pTempVar 6  " reject: " \
  29.   #( #[ 16r20 16rE1 16r02 16r05 16r21 16r22 16rB4 16rAC 16rF3 16r0B 16r2C \
  30.         16rF3 16rF5] \
  31.     #(  )) >
  32.  
  33. <primitive 112 pTempVar 7  " printString " \
  34.   #( #[ 16r20 16r20 16rA4 16rA9 16r30 16r0B 16r11 16rE2 16r01 16r09 16r21 \
  35.         16r31 16r0B 16r11 16r22 16rA9 16r0B 16r11 16rF3 16rD7 16r32 \
  36.         16r0B 16r11 16rF3 16rF5] \
  37.     #( ' (' ' ' ' )'  )) >
  38.  
  39. <primitive 112 pTempVar 8  " occurrencesOf: " \
  40.   #( #[ 16r20 16r50 16rE2 16r02 16r0D 16r23 16r21 16rC9 16rF7 16r05 16r22 \
  41.         16r51 16rC0 16rF8 16r02 16rF2 16r22 16rF3 16rD7 16rF3 16rF5 \
  42.        ] \
  43.     #(  )) >
  44.  
  45. <primitive 112 pTempVar 9  " isEmpty " \
  46.   #( #[ 16r20 16rA3 16r50 16rC9 16rF3 16rF5] \
  47.     #(  )) >
  48.  
  49. <primitive 112 pTempVar 10  " inject:into: " \
  50.   #( #[ 16r21 16r73 16r20 16rE1 16r04 16r07 16r22 16r23 16r24 16rD3 16rF1 \
  51.         16r73 16rF3 16rB3 16rF2 16r23 16rF3 16rF5] \
  52.     #(  )) >
  53.  
  54. <primitive 112 pTempVar 11  " includes: " \
  55.   #( #[ 16r20 16rE1 16r02 16r08 16r22 16r21 16rC9 16rF7 16r02 16r5B 16rF4 \
  56.         16rF3 16rB3 16rF2 16r5C 16rF3 16rF5] \
  57.     #(  )) >
  58.  
  59. <primitive 112 pTempVar 12  " first " \
  60.   #( #[ 16r20 16r30 16rBC 16rF3 16rF5] \
  61.     #( 'subclass should implement first'  )) >
  62.  
  63. <primitive 112 pTempVar 13  " detect:ifAbsent: " \
  64.   #( #[ 16r20 16rE1 16r03 16r08 16r21 16r23 16rB4 16rF7 16r02 16r23 16rF4 \
  65.         16rF3 16rB3 16rF2 16r22 16rA5 16rF3 16rF5] \
  66.     #(  )) >
  67.  
  68. <primitive 112 pTempVar 14  " detect: " \
  69.   #( #[ 16r20 16r21 16rE0 16r04 16r20 16r30 16rBC 16rF3 16rDF 16rF3 16rF5 \
  70.        ] \
  71.     #( 'no object found matching detect'  )) >
  72.  
  73. <primitive 112 pTempVar 15  " deepCopy " \
  74.   #( #[ 16r05 16r30 16rA0 16r71 16r20 16rE1 16r02 16r07 16r21 16r22 16r0A \
  75.         16r14 16r0B 16r16 16rF3 16rB3 16rF2 16r20 16r21 16rBF 16rF3 \
  76.         16rF5] \
  77.     #(  )) >
  78.  
  79. <primitive 112 pTempVar 16  " collect: " \
  80.   #( #[ 16r20 16r20 16rA4 16rA0 16rE2 16r02 16r08 16r22 16r21 16r23 16rB4 \
  81.         16rBD 16rF2 16r22 16rF3 16rD7 16rF3 16rF5] \
  82.     #(  )) >
  83.  
  84. <primitive 112 pTempVar 17  " coerce: " \
  85.   #( #[ 16r20 16rA0 16r72 16r21 16rE1 16r03 16r04 16r22 16r23 16rBD 16rF3 \
  86.         16rB3 16rF2 16r22 16rF3 16rF5] \
  87.     #(  )) >
  88.  
  89. <primitive 112 pTempVar 18  " asString " \
  90.   #( #[ 16r05 16r3A 16r20 16rA3 16rB0 16rF1 16r51 16r20 16rA3 16r20 16r83 \
  91.         16r00 16rF2 16rF3 16rF5] \
  92.     #( #replaceFrom:to:with:  )) >
  93.  
  94. <primitive 112 pTempVar 19  " asList " \
  95.   #( #[ 16r05 16r30 16rA0 16r20 16r0B 16r14 16rF3 16rF5] \
  96.     #(  )) >
  97.  
  98. <primitive 112 pTempVar 20  " asSet " \
  99.   #( #[ 16r05 16r39 16rA0 16r20 16r0B 16r13 16rF3 16rF5] \
  100.     #(  )) >
  101.  
  102. <primitive 112 pTempVar 21  " asBag " \
  103.   #( #[ 16r05 16r20 16rA0 16r20 16r0B 16r13 16rF3 16rF5] \
  104.     #(  )) >
  105.  
  106. <primitive 112 pTempVar 22  " asArray " \
  107.   #( #[ 16r05 16r1E 16r20 16rA3 16rB0 16rF1 16r51 16r20 16rA3 16r20 16r83 \
  108.         16r00 16rF2 16rF3 16rF5] \
  109.     #( #replaceFrom:to:with:  )) >
  110.  
  111. <primitive 112 pTempVar 23  " addAll: " \
  112.   #( #[ 16r21 16rE1 16r02 16r04 16r20 16r22 16rBD 16rF3 16rB3 16rF2 16rF5 \
  113.        ] \
  114.     #(  )) >
  115.  
  116. <primitive 98 #Collection \
  117.   <primitive 97 #Collection #Object #AmigaTalk:General/Collection.st \
  118.    #(  ) \
  119.    #( #size #shallowCopy #select: #remove:ifAbsent: #remove: #reject: #printString  \
  120.        #occurrencesOf: #isEmpty #inject:into: #includes: #first #detect:ifAbsent: #detect: #deepCopy  \
  121.        #collect: #coerce: #asString #asList #asSet #asBag #asArray #addAll:  ) \
  122.   pTempVar 5 7 >>
  123.  
  124.